1 S=49152:PRINT"[147][152][148]          <SHIFT>"
2 FORA=STOS+10:READX:POKEA,X:NEXT
3 DATA238,32,208,173,141,2,201,1,208,246,96
10 POKE53280,.:POKE53281,.:PRINTCHR$(147): REM ** GEMACHT VON 'LUKIAN' **
12 PRINT"*** DEIN COMPUTER WARTET AUF BEFEHLE ***":
14 TI$="000003":WAIT161,5:PRINT"[147]   WILLST DU JETZT MIT IHM ARBEITEN?"
16 PRINT"                 [158](J/N)":
18 POKE198,0:WAIT198,1:GETA$
20 IFA$=CHR$(78)GOTO 26
22 IFA$=CHR$(74)GOTO 30
24 GOTO18
26 PRINT"[147][152]  WOZU HAST DU IHN DANN EINGESCHALTET!":GOTO28
28 TI$="000003":WAIT161,5:GOTO46
30 PRINT"[147][153]  FEIN! DU WEISST DOCH HOFFENTLICH AUCH,";
32 PRINT"       WAS DU MACHEN MOECHTEST!?":
34 PRINT"[151]                  (J/N)[144]":
36 POKE198,0:WAIT198,1:GETB$
38 IFB$=CHR$(74)GOTO52
40 IFB$=CHR$(78)GOTO44
42 GOTO36
44 PRINT"[147]   DANN UEBERLEG'S DIR INZWISCHEN!!"
45 PRINT"[152]            >>>>>SHIFT!<<<<<            ":GOTO51
46 FORA=OTO25:PRINT"[147][156]DANN BRAUCHST DU IHN JA UEBERHAUPT NICHT"
48 PRINT"          VERSCHENKE IHN DOCH!          [145][145][145]";
49 PRINT"[152]            >>>>>SHIFT!<<<<<            ":NEXTA:GOTO50
50 TI$="000003":WAIT161,5 :SYSS:SYS58253
51 TI$="000003":WAIT161,9:SYSS:SYS58253
52 PRINT"[147][144]LOAD"CHR$(34)"$";
54 PRINTCHR$(34)",8":PRINT:PRINT
56 PRINT:PRINT:PRINT"LIST"
58 POKE198,3:POKE631,19:POKE632,13:POKE633,13:PRINT"[151]":END